Slight cleanup in calc-yank

* lisp/calc/calc-yank.el (calc-yank): Remove compat code.

diff --git a/lisp/calc/calc-yank.el b/lisp/calc/calc-yank.el
index b119f149801384d5712eaece01c842b0fb0d4a84..690aaf2687f072539d03154bca1d1a422cca81b4 100644 (file)
--- a/lisp/calc/calc-yank.el
+++ b/lisp/calc/calc-yank.el
@@ -244,9 +244,7 @@ If RADIX is nil or if the yanked string already has a calc radix prefix, the
 yanked string will be passed on directly to the Calculator buffer without any
 alteration."
   (interactive "P")
-  (calc-yank-internal radix (if (fboundp 'current-kill)
-                                (current-kill 0 t)
-                              (car kill-ring-yank-pointer))))
+  (calc-yank-internal radix (current-kill 0 t)))
 
 ;;; The Calc set- and get-register commands are modified versions of functions
 ;;; in register.el